home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / scheme / scheme.t < prev    next >
Text File  |  1990-04-12  |  3KB  |  76 lines
  1. (herald scheme (env tsys))
  2.  
  3. ;;; Copyright (c) 1985 Yale University
  4. ;;;     Authors: N Adams, R Kelsey, D Kranz, J Philbin, K Pitman, J Rees.
  5. ;;; This material was developed by the T Project at the Yale University Computer
  6. ;;; Science Department.  Permission to copy this software, to redistribute it,
  7. ;;; and to use it for any purpose is granted, subject to the following restric-
  8. ;;; tions and understandings.
  9. ;;; 1. Any copy made of this software must include this copyright notice in full.
  10. ;;; 2. Users of this software agree to make their best efforts (a) to return
  11. ;;;    to the T Project at Yale any improvements or extensions that they make,
  12. ;;;    so that these may be included in future releases; and (b) to inform
  13. ;;;    the T Project of noteworthy uses of this software.
  14. ;;; 3. All materials developed as a consequence of the use of this software
  15. ;;;    shall duly acknowledge such use, in accordance with the usual standards
  16. ;;;    of acknowledging credit in academic research.
  17. ;;; 4. Yale has made no warranty or representation that the operation of
  18. ;;;    this software will be error-free, and Yale is under no obligation to
  19. ;;;    provide any services, by way of maintenance, update, or otherwise.
  20. ;;; 5. In conjunction with products arising from the use of this material,
  21. ;;;    there shall be no use of the name of the Yale University nor of any
  22. ;;;    adaptation thereof in any advertising, promotional, or sales literature
  23. ;;;    without prior written consent from Yale in each case.
  24. ;;;
  25.  
  26. ;;; Modified by Ashwin Ram, July 1985
  27.  
  28. ;; Contents:
  29. ;; ---------
  30. ;; Emulator for Scheme in T.
  31. ;; Make sure this is compiled before putting it in production use.
  32. ;;
  33. ;; Implements a mix of MIT Scheme and R3R Scheme (in T).
  34. ;; Intended to run the examples from S&ICP, the problem sets from 6.001, 
  35. ;; and MacScheme programs.
  36.  
  37. ;; Using the interpreter:
  38. ;; ----------------------
  39. ;; (SCHEME-BREAKPOINT) -- Enters Scheme temporarily; <EOF> takes you back to T.
  40. ;; (SCHEME-TOP-LEVEL)  -- Enters Scheme permanently (at top-level).
  41. ;; (T-RESET)           -- Takes you back to T.
  42. ;; You might, for example, set up an INIT.T file for the students that
  43. ;; automatically did (SCHEME-TOP-LEVEL).
  44.  
  45. ;; Report bugs to T3-BUGS.
  46. ;; ---------------------------------
  47.  
  48. ;;****************************************************************************
  49. ;;                              ENVIRONMENT
  50. ;;****************************************************************************
  51.  
  52. (let ((scheme-internal-env (make-locale standard-env 'scheme-internal-env))
  53.       (scheme-env (make-locale standard-env 'scheme-env)))
  54.  
  55.    (*define scheme-env 'scheme-internal-env scheme-internal-env)
  56.    (*define scheme-internal-env 'scheme-env scheme-env)
  57.    (*define standard-env 'scheme-internal-env scheme-internal-env)
  58.    (*define standard-env 'scheme-env scheme-env)
  59.  
  60.    (load '(tscheme syntax) scheme-internal-env)
  61.    (load '(tscheme system) scheme-internal-env)
  62.    (load '(tscheme runtime) scheme-internal-env)
  63.    (load '(tscheme compiler) scheme-internal-env)
  64.  
  65.    (*define standard-env 'scheme-breakpoint
  66.        (*value scheme-internal-env 'scheme-breakpoint))
  67.    (*define standard-env 'scheme-reset
  68.        (*value scheme-internal-env 'scheme-reset))
  69.    (*define standard-env 'scheme-top-level
  70.        (*value scheme-internal-env 'scheme-top-level))
  71.  
  72. )
  73.  
  74. ;;****************************************************************************
  75. 'SCHEME
  76.